home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Info-Mac 4
/
Info_Mac IV CD-ROM (Pacific HiTech Inc.)(August 1994).iso
/
Development
/
Source
/
DBL Pascal Library
/
SFGetFolder 6 ƒ
/
SFGetFolder.p
< prev
Wrap
Text File
|
1993-06-27
|
836b
|
42 lines
unit SFGetFolder;
interface
function SFGetFolder (where: Point; var dirID: Longint): Boolean;
const
getFolderDlgID = -4001;
implementation
function FileFilter (pb: ParmBlkPtr): Boolean;
begin
FileFilter := True; {never show any file}
end;
function DialogHook (item: Integer; dlg: DialogPtr): Integer;
const
folderButton = 9; {replaces the horizontal divider}
begin
case item of
folderButton:
DialogHook := getOpen; {terminate the dialog}
otherwise
DialogHook := item;
end;
end;
function SFGetFolder (where: Point; var dirID: Longint): Boolean;
var
typeList: SFTypeList;
reply: SFReply;
begin
SFPGetFile(where, '', @FileFilter, -1, typeList, @DialogHook, reply, getFolderDlgID, nil);
with reply do
begin
SFGetFolder := good;
dirID := Longint(fType);
end;
end;
end.